** Esto correspo de al patron Active Record
** Desventaja para sistemas grandes
DEFINE CLASS datasancion as databaseclass

	vidsancion = ""
	vidsocio = ""
	vdias = ""
	vfecha = ""
	
	FUNCTION insert
	
		INSERT INTO sancion (dias, fecha, idsocio) ;
		VALUES (this.vdias, this.vfecha, this.vidsocio)
		
	ENDFUNC
	
	FUNCTION update
	
		update sancion set ;
		idsocio = this.vidsocio ;
		dias = this.vdias ;
		fecha = this.vfecha
		where idsocio = this.vidsocio
		
	endfunc
	
	FUNCTION delete
	
	consulta = delete from sancion where idsancion = vidsancion
	
	ENDFUNC
		
	FUNCTION getone 
		PARAMETERS bidsancion

		select * from sancion where idsancion = bidsancion into cursor curSancionBuscado
		
		this.vidsancion = curSancionBuscado.idsancion
		this.dias = curSancionBuscado.dias
		this.fecha = curSancionBuscado.fecha
		
	ENDFUNC
	
	FUNCTION getall as Cursor
		
		LOCAL vcursancion
		
		SELECT * FROM socio INTO CURSOR vcursancion
		
		RETURN
		
	ENDFUNC

ENDDEFINE